home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / konstruk / picmore.tex < prev    next >
Text File  |  1994-01-13  |  3KB  |  77 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. % PiCTeX Erweiterungen von Andreas Schrell  %
  3. %                          Windhoevel 2     %
  4. %                          5600 Wuppertal 2 %
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6. % Version 1.0                    29.10.1989 %
  7. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  8.  
  9. % Befehle für die Benutzer:
  10. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  11. % \setsignal            zur Benutzung wie \setlinear        %
  12. %                       \plot erzeugt danach Signalverlaeufe%
  13. %                       fuer Impulsdiagramme. Es werden TeX-%
  14. %                       Linien benutzt, daher schneller als %
  15. %                       \plot mit \setlinear                %
  16. % Bsp:                                                      %
  17. % \setsignal \plot 0 1  1 0  2 1  4 0  7 1  8 0 /           %
  18. % erzeugt                                                   %
  19. % 0 1 2 3 4 5 6 7 8                                         %
  20. % __   ___       _                                          %
  21. %   ! !   !     ! !                                         %
  22. %   !_!   !_____! !                                         %
  23. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  24. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  25. % \setmsignal           zur Benutzung wie \setlinear        %
  26. %                       \plot erzeugt danach Signalverlaeufe%
  27. %                       fuer Impulsdiagramme. Es werden TeX-%
  28. %                       Linien benutzt, daher schneller als %
  29. %                       \plot mit \setlinear                %
  30. % Bsp:                                                      %
  31. % \setmsignal \plot 0 1 1  2 2  4 3  6 0  7 1 1      %
  32. % erzeugt                                                   %
  33. % 0 1 2 3 4 5 6 7 8                                         %
  34. %      ---                                                  %
  35. %     !   !                                                 %
  36. %    -    !                                                 %
  37. % --!     !    -                                            %
  38. %         !___!                                             %
  39. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  40.  
  41. \catcode`!=11
  42.  
  43. \def\setsignal{%
  44.  \let\!drawcurve=\!scurve}
  45.  
  46. \def\!scurve #1 #2 {%
  47.  \edef\!hxS{#1}%
  48.  \edef\!hyS{#2}%
  49.  \!sjoin}
  50.  
  51. \def\!sjoin#1 #2 {%
  52.  \putrule from {\!hxS} {\!hyS} to {#1} {\!hyS}
  53.  \putrule from {#1} {\!hyS} to {#1} {#2}
  54.  \edef\!hxS{#1}%
  55.  \edef\!hyS{#2}%
  56.  \!ifnextchar/{\!finish}{\!sjoin}}
  57.  
  58.  
  59. \def\setmsignal{%
  60.  \let\!drawcurve=\!smcurve}
  61.  
  62. \def\!smcurve #1 #2 #3 {%
  63.  \edef\!hxS{#2}%
  64.  \edef\!hyS{#3}%
  65.  \putrule from {#1} {\!hyS} to {\!hxS} {\!hyS}
  66.  \!smjoin}
  67.  
  68. \def\!smjoin#1 #2 {%
  69.  \putrule from {\!hxS} {\!hyS} to {\!hxS} {#2}
  70.  \putrule from {\!hxS} {#2} to {#1} {#2}
  71.  \edef\!hxS{#1}%
  72.  \edef\!hyS{#2}%
  73.  \!ifnextchar/{\!finish}{\!smjoin}}
  74.  
  75. \catcode`!=12
  76.  
  77.